
module Views where

import Text.XHtml.Strict
import qualified I18n

root lang = (header $ thetitle << I18n.homePage lang)
        +++ (body $ h1 << I18n.welcome lang)
         
pageNotFound lang req = (header $ thetitle << I18n.pageNotFound lang)
        +++ (body $ h1 << I18n.pageNotFound lang
            +++ h2 << show req
            )
